home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr01 / jock.zip / TOTDEM11.ZIP / DEMMN4.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-11  |  715b  |  35 lines
  1. program DemoMenuFour;
  2. {DEMMN1 - a simple lotus menu}
  3.  
  4. USES  DOS, CRT,
  5.       totMENU, totFAST;
  6.  
  7. var
  8.   P: LotusMenuOBJ;
  9.   Choice: byte;
  10. begin
  11.    Screen.Clear(white,'░'); {paint the screen}
  12.    with P do
  13.    begin
  14.       Init;
  15.       AddItem('Worksheet');
  16.       AddItem('Range');
  17.       AddItem('Copy');
  18.       AddItem('Move');
  19.       AddItem('File');
  20.       AddItem('Print');
  21.       AddItem('Graph');
  22.       AddItem('Data');
  23.       AddItem('System');
  24.       AddItem('Quit');
  25.       SetActiveItem(1);
  26.       SetGap(1);
  27.       Choice := Activate;
  28.       Done;
  29.    end;
  30.    GotoXY(1,5);
  31.    if Choice = 0 then
  32.       Writeln('You escaped')
  33.    else
  34.       Writeln('You selected menu item ',Choice);
  35. end.